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APPLESOFT VARIABLE GOSUB. 

Kurt G. Schumacher 

111 S. Highland 

Arlington Heights, IL 60005 

I recently wrote a program called “MR APPLE HEAD", which allows the person running the 

► '■ 4 . ‘ * f t' • • . • » 

program to control the facial expressions of a lo-res face. (Look for this program in your 
local NSAUG-1ibrary.) ' 

• in ,.wr,i,ting this program, I was faced with the task of obtaining a command from the user, 
verifying it against a list of valid commands, and going to an appropriate subroutine to 
process the command. 

initially, this was no problem. But as the_ program grew, and more and more_commands were_ 

added (mostly at the instigation of my five year old son), the task of maintaining the 

branching logic increased greatly. The listing for Program 1 shows a simplified version of 
the problem. A list of valid commands is read in from' DATA statements in Line 30. Lines 
40-60 prompt the user for a command, verify it by looping through the command array, end 
issue an error-message if no match is found. 

Line 70 issues an ON GOSUB command to branch to the appropriate subroutine for each command. 
Here is whe're my problem arose. As the number of commands allowed by my program grew to over 

twenty, it began to take longer to update the ON GOSUB statement for'a new command than it 

did to code the new subroutine! The program logic also became more difficult to follow. In 
order to.locate the line number of the subroutine for a command, I had to count through the 
data statements to get the number of the command, then count through the line numbers in the 
GOSUB statement to find the correct subroutine. Clearly, another method was required. 

1 thought of the variable GOSUB feature of Integer BASIC. The listing for Program 2 shows 
the same logic implemented in an Integer BASIC program. The subroutine line number is stored 
in the array LN, which is used as the object of the GOSUB in line 60. I began to wonder if a 
similar method could be used in Applesoft. 

1 finally hit upon the idea of providing a model GOSUB statement in my program, and modifying 
it during program execution to point to the desired subroutine. The result is shown in the 
listing for Program 3. Line 0 branches around the model GOSUB. Line 30 reads in the valid 
commands, as before; but it also reads in the corresponding subroutine line numbers, as 
character strings. Lines 40-60 perform command input and validation. Lines 70-110 modify 
and execute the model GOSUB. 

In order to understand what is going on in Lines 70-110, it is neccessary to examine the way 
Applesoft programs are stored in memory. Memory locations S67-S68 (103-104) point to the 
beginning of the program. For ROM Applesoft, this is $801. Figure 1 shows a Monitor listing 
of the start of Program 3. 


CONTINUED ON .PAGE 2 
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The first two bytes contain the low and high bytes of the address of the nest line in memory; 
in this case,. $808. The nest' two bytes are the low and high bytes of the line number, in 
hexadecimal ($0*000). The remaining bytes in the line are the tokenixed BASIC statements. In 
Line 0, SAB is the token for GOTO; $32 is the ASCII representstigf) of '2 1 ; and 800 marks the 
end of the line. At the beginning of Line 1 is the address of Line 2 (1813), followed by the 
line number ($0001). The' next byte, $B0, is the token for GO&VB. The next five bytes of $30 
are the ASCII representation of the line number ’OOQOQ*. Finally, the next two bytes ($?A 
$B1) are the tokens for ':RETURN', followed by the $00 end-of-line indicator. 


The portion of Line 1 that we wish to modify is the *00000', the line number that the GOSUB 
will branch to. The implementation in Program 3 is rather crude, but effective. Line 70 
obtains the pointer to the start of^the program from $67-68, and adds 11 to it. Thi^ is 

simply the number of bytes from the start' of the program to the start of the line number to 
be modified, obtained by counting bytes in the Monitor listing. 

Lines 60-100 poke each byte of the subroutine line number into the GOSUB statement in Line 1. 
Line ilO issues a GOSUB to the modified Line 1, and returns to the prompt message. 

Notice the following restrictions in this teohnique: 

— the line number in Line 1 must' have EXACTLY fixe xeros. 

-- the subroutine line numbers in the data statements must also bqve EXACTLY five digits'. 


-- the technique as shown will oyly sork if Lines 0 and 1 are coded exaotly as shewn in 
Program 1. 


As a general rule, I would say that self-modifying BASIC programs should be avoided. In this 
case, how ever , the te chnique i s.. just iJ ieJ_J»y the improved _r e a d ah i-1 i. t y__and- maintainabi1 tty -of 
the oommand/subroutine list. 


3 

10 NC s 3. REM NUMBER OF CO^MjtNP 
S 

20 DIM CM$(NC) 

30 FOR I « 1 TO NC: READ CM$(1): 
NEXT I 

4 0 INf»UT "COMMAND: ";C$ 

00 FOR I a 1 TO NC: IF C$ ■ CMS( 
I) THEN 70 

60 NEXT I: PRINT "INVALID COMMAN 
D": GOTO 40 

70 ON I GOSUB 200,210,220 


80 

GOTO 40 



200 

PRINT "LINE 

200" : 

RETURN 

210 

PRINT "LINE 

210" : 

RETURN 

220 

PRINT "LINE 

220" : 

RETURN 

800 

DATA A 



810 

DATA B 



820 

DATA C 



1000 

REM 




PROGRAM 1 


>LIST 

.. 



10 

DIM LN(3) 



20 

LN(1)»209:LN(2)*210 jLN(3)«220 

30 

INPUT "COMMAND: 


40 

FOR M TO. 

3 : ip 

N-I THEN 60 

50 

NEXT 1: PRINT "INVALID COMMAND 


: GOTO 30 



60 

GOSUB LN(I) 



70 

GOTO 30 



200 

PRINT "LINE 

200" 

: RETURN 

210 

PRINT "LINE 

210" 

: RETURN 

220 

PRINT "LINE 

220" 

: RETURN 

80.0 

REM 




PROGRAM 2 


*801.820 


0801- 08 

06 

00 

00 

AB 

82 

00 


0808- 15 

08 

01 

00 

B0 

30 

30 

30 

0810- 30 

30 

3A 

B1 

00 

2E 

08 

02 

0818- 00 

0820- 30 

B2 

4C 

48 

4E 

45 

53 

20 


CONTINUED ON PAGE 3 
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3LIST 


QUIZ GAME 


0 GOTO 2 

1 GOSUB 00000: RETURN 

2 REM LINES 0 & 1 MUST BE 

3 REM ENTERED EXACTLY AS SHOWN 
10 NC « 3 REM NUMBER OF COMMAND 

S 

20 DIM CMS(NC),GS«(NC) 


30 

FOR I » 1 TO NC: 
GSMI). NEXT I 

READ CMt(I), 

40 

INPUT "COMMAND: " 

iCI 

30 

FOR I - 1 TO NC: 
I) THEN 70 

IF Cl * CM!( 

JB 0 

NEXT, I: PRINT "INVALID COMMAN 
D". GOTO 40 

70 N 

» PEEK (103) ♦ 

256:N * N + 11 

PEEK (104) 

80 

FOR J * 1 TO 3:N$ 
$(I),J,1) 

s MIDI (GS 

90 

POKE N + J, ASC (N$) 

100 

NEXT J 


110 

GOSUB 1: GOTO 40 


200 

PRINT "LINE 200" 

: RETURN 

210 

PRINT "LINE 210" 

: RETURN 

220 

PRINT "LINE 220" 

: RETURN 

900 

DATA A,00200 


910 

DATA B,00210 


920 

DATA C,00220 


1000 

REM 


PROGRAM 3 



by Peter Zaloga 

Assume you are in a room that has only two 
doors (we'll label them 1 and 2). The only 
thing in this room with you are two computers 
(we'll label them A and B). 

The problem you have is that one of the doors 
leads to instant death where as the other 
leads to safety. 

The only way to have to determine which is 
the correct door is to direct a question. 
Only one question to either one of the 
computers. 

The trouble here is that one computer always 
lies and the other always tells the truth. Of 
course* you don't know whioh one is telling 
the truth. 

What is that one question you can ask that 
will allow you to select the correct door? 
Good luok! 

The answer WTl 1 be - given at—thre--Dec ember 
meeting. 


***ftftft*X*X********X*ft*****ft**ft*****ft*ft******* 


BEER CAN AND BOOKIES 

Aooording to an AP wire servioe appearing in 
the Sun Times and Tribune a couple of weeks 
ago, “a computer at one of the governments 
top secret weapons laboratories was 
improperly used by 200 employees to store 
games, personal letters, jokes, and an 
illegal bookmaking operation." 

The beer oans were an inventory of a 
oolleotion. Other items stored were a loan 
repayment sohedule, poetry, and a roster for 
the laboratories bowling team. They also 
found 247 games in the computer. Of course, 
Star Trek was one. 

It seems to me they would solve all their* 
problems by buying an APPLE. Does anyone have 
a book-making program? 

Dave Alpert 


MEMBERSHIP RENEWALS 

t * 

Please look at the mailing label on this 
newsletter. If you have an *80' under your 
name, then you have not renewed for* 81. 
Renewals for 81 must be in by December in 
order to continue receiving membership 
benefits. The mailing list will be expunged 
of delinquent names about the 20th of 
December. 

Applications were inoluded in a prior issue. 
If you have misplaced yours or did not 
reoeive one, please call the olub seoretary. 
Please note that renewals are 112.00 and do 
not require that a disk be given to the club. 
Renewals may be mailed to the olub PO Bos or 
dropped off at the nest meeting. 

We are shooting to equal or esoeed last 
year's renewal rate of 87%. Please attend to 
this matter as soon as possible. 

Thank You, 

Your Officers 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 





PAGE 4 


HARVEST VOL. 2-NO. 4 


CLUB OFFICERS 


CLUB NEWS 

MEMBERS AIDE 


President: Don Fuller-312-881-6868 

Vice Pres: Mike Robins-312-583-2708 

Secretary: Joel Kurasch—---312-677-8358 

Treasurer: Jamas Wilson-312-358-2186 

Librarian: Mike Rose-312-358-4306 

Asst. Lib: Julian Vassay 
Prog. Crn: Ken Rose 
NL Staff: Jia Nowak 

Club Addresses: 

MEMBERSHIP, etc--BOX 787 

Palatine, II. 60067 

NEWSLETTER-Dave Alpert 

88.0 Mellody 

Lake Forest, II. 60045 
312-285-6076 
SOURCE4-TCA 640 

BULLETIN BOARD-312-285-6926 daily 

as available and after 
10:30pm local time 

Membership is open to all. Dues are $12.00 
annually. New members are, required to supply 
one disk or cash ..equivalent < $-5.00) at Jhf 
time of admission to the club. Disk not. 
required of renewals. Membership applications 
are available from the club Secretary at the 
meetings or by mail. 


The members listed below have volunteered to 
answer questions from club members who need a 
'HOT LINE' type approach. Please try to be 
brief when you call as a courtesy to them. 

Listed below are the names and phone numbers. 
The numbers after their names represent their 
special talent. PLEASE-no calls after 10pm.’ 

Earl Allen-312-837-9259 1-9 

Mike Robins-312-593-2709 9-0 

Paul Stadfield — 312-359-2378 4-9 

Guy Lyle-312-438-7941 4-9 

Ted Roseman 

Mary Roseman-312-338-4833 2,3 

Joel Kuraseh-312-677-8358 9 

Leon Alexander-312-725-5309 9 

Gordon Banks-312-324-6194 0 

Rich Lundeen---—312-420-2008 2,3 

Mach.. Langs^ Int. Basic*2 

Applesoft »3 Hardware «4 

Arrays «5 DOS *6 

All of above&9 

PASCSALaO (not inol uded-i-n- #8 designation) 

When numbers appear befor a 9, the person is 
especially qualified in that ^rea as well as 
in all other areas. 


NSAUG NEWSLETTER is published by the 
Northwest Suburban APPLE Users Group and 
edited by Dave Alpert. Contents may be 
reproduced by other APPLE clubs for their 
newsletters or bulletines except where 
speoifically reserved by the author. 
Permission to copy these articles may be 
obtained by writing the author through pur 
editorial offices. Please indicate THE 
HARVEST as the source of any material 
reproduced. Newsletter exohange is welcomed. 
The Harvest recognises that APPLE and APPLE 
manufactured products are trademarks of the 
APPLE Computer Company. 

Regular meetings are held at the Sohaumberg 
Library, 100 Library Lane, Schaumberg, 11. 

MEETING SCHEDULE 

Regular Meeting Sat. December 6 

Sat. January 3 
Sat. February 7* 

*tentative 

Offioers meetings are held at the President's 
home on the Tuesday evening following the , 
regularly scheduled meeting starting at 7pm. 


*ft*ftftft*X«*******ft***********t*****ft* 

DECEMBER 
AGENDA 
DEC 6 


10:00-10:30 OPENING REMARKS 
Don Fuller 

10:30-11:15 INTERACTIVE VIDIO 
Jim Xeok 

11:15-12:15 NOMINATIONS 
Joel Kurasoh 

12:15-12:30 GAMES WE LIKE TO PLAY 
Chuok Anderson 

12:30-12:55 ASX MR. APPLE 
Mike Robins 

12:55- 1:00 PRESIDENT'S REMARKS 
Don Fuller 

speoial mystery guest to appear 
at this meeting 

GUESTS WELCOME 

X*********************************]** 







t 
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MORE CLUB NEWS 


PREZ SEZ: 

Our htt is ptf to Terry Tails lor the 
''Printer Technology" presentation this month. 
•A. lot of .researoh wont into tho handout and 
is appreciated by eIt. sUdif 
himsolf (!). Tho Program Lino Editor domo by 
Oavo Alport tyap pacoilont. I'm pure you 
realised that if ypu*ro doing any programming 
at all, this aid is a dofinito MUST HI 

No ono askod, but I'm going to toll you 
anyway... Tho proposed constitution .that wont 
out will bo voted on ft t^e January'megtIng. 
Two roasons: First, that is required by tho 
present constitution (time frame involved to 
got it to all members). Second, wo want to 
set up tho incoming offioors with a dooumopt 
Vo incorporate iho olyh and beMer jifline the 
club's operationsi I will not (repeat -NOT-) 
rped tho proposal at the neat two mootings 
duo to tho time constraints, you will bo 
eipeoted to know what you are voting on ft 
tho jJknuary mealing, so ftad 11 and, think 
about it at your loasuro. If it passes^ it 
will bo published in "THE HARVEST" and 
yyeryone tfill barf a odpy tflso the *nfw 
mdmber' packet will have a copy for late 
joiners). . ' • ' : 

Nominations: Joel Xurasoh will bo acoopting 
nominations irpm tho Hod? at tho December 
mooting. If you nominate someone, you must 
vouoh for their willingne.ss to serve i.n that 
offioel (for these peopl| who ashed... No, I 
am not running for a second term, thank you 

anyv*y> 

February.. 14th, ... 1969. The reservations are 
coming in for the socia^... Remember, it yep 
live out of town and oan't get to tho 
mootings, this wouiy bo a good oRsnee for a 
massive, once a year, got to know tho people 
of 'nsaug'... See you there? 

Oh yeah, tho name ohango proposals in tho 
suggestion bos at tho October mooting. The 
names suggested are already ip use oscopt fer 
'Northern Illinois Apple Users Group'. Vo may 
just stop into this in detail at tho Dec. or 
Jan. mooting... Bo there to see what 
transpires! 

Hore oh yeah: 1 appreciate your approval of 
the funds to subsidise ^he February social. 
THANK YOU. 

Enough? you bet) See you Oocomber the fth, 
seme time, same place. 


SECRETARY'S REPORT 


Hooting of November 1* 1980 
Attendance: 133 


Tho mooting was called to order by Program 
Chairman Ken Rose, who announced neat month's 
agenda, reminded everyone of the program 
contest (for which there are still more 
priMf than parents), apd told of thf plops 
.for the the dinner dayice to be held in 
February. President Don Fuller then gave a 
brief talk about ihe proposed .pf*f 
constitution of the club-. Treasurer Jim 
Vi 1 son repofted on the. club ^infpoos (see 
Treasurer's report). Librarian Mike Rose 
talked briefly about the library. And Dave 
Alpeft, the Hfrveyt editor, ask fof anyone 
who was interested in working on the 
newsletter with him $o cpntacthim. 

Terry Tufts then gave a comprehensive report 
fh ‘the various types of printers available 
and a brief discription of the technology 
involved for eaoh group. 


Ren Rose then eppl^ined ~ thy ~ oiub _ if - 
supporting the formation of various SIC's 
(Spacial Interest .Group.) To further that 
goal, fid** tli# i*i«*.f«t groups, gfmes, 

music, business, stocks, ete., were 
distributed, sq that the membership could 
gather by speoial interest after the meeting. 
The groups are to make reports to the olub as 
thejr progress. 

Davs Alpsrt than gave a demonstration on the 
Program Lina Editpr. This very veysitily 
program resides in upper memory and provides 
tremendous assistance to the program 
development effort. 

TREASURERS REPORT 

Month ending October 31 

Sept. Ending Bel- 11163.33 

Membership 589.00 

News letter (158.8-5 > 

Risk Project <877.00) 

(400 disks purchased) 

Stationery (24.00) 

Bulletine board <6.19) 

r*»T— 

Oct. Ending Bal . I 885.99' 

Reypectfufly permitted, 

Jim Wilson, Treasurer 
Nov. 4, 1980 


DON 
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UNIVERSAL INPUT i>UNCTION-OR FORTRAN 

John Ruse, Z13 Merwiij Road* Raleigh, N.C., 27606 

Apple Fortran it groat, but liko all Fgrtran'i, it suffers from awkward I/O formatting 
structures. This is partieVlarly annoying when inputting' data from tho keyboard: for instance, 
you have to know whothor F or I format is being uftd to know whether you must or mupt not 
include a decimal point. To overcome this problem, the enclosed functions allow free-fqrmat 
input of integer (INPUTO) or floating points VtoNt'^) HiumWi* s'. Spaoeit Ire* ignored, plus sign 
and decimal point are optional, and the number may appear anywhere in a ZO-character field. 
Prefsing'RETURN/with rto ohararfter is interpreted as sero.^ Illegal" Characters cause the routine 
tq ask•for re-entry, rather than generating a faYal run-time erfor! 

A 'word in addition about how to combine these functions with other programs (it took a while 
to. figyre- this out, as the manual is less thyn olea*). Assume.that the functions are in files 
,namtid.i.'^NTRV• CODE .and .ENTRY-TEXT. py qp f.?^Cr«r A,your map program TEXT 
(preferably toward the end) to oompile everything together lust ah though the ENTRY.TEXT were 
typed .Into your program TEXT, but this is both dVow; <: an^ht^f ^.ient. The. al ternative is IUSE8 
UINPUT IN ENTRY at the start of your program. The 'iN^UT/ yAi-JUNV and OW rout ins s are then all 
found and oross-peferenoed during compilation. I do not know why the U prefis appears, but it 
U*«*Sr, .|t*er an afclsre visit iq» ipr a« p ajfcoa^ Howe^r ,_at ^WK.tisw* thp automatip 

eompile-1tpk-and-run sequence will bomb when it can't find U INPUT.' YOU have to select L(ink 
from the > command... menu and specify poth the *SYSTEM.LIBRARY snd ENTRY as library filn.s. Then 
everything seems to oome out OK. - v w *" ^ 


P.a. forDr. Apple: Howcin I. use th.e GQTOXY routineflrom. Pascal tqvcpnl.pl my output to tips 
eonsole soreen in Fortran? 


My best to all 


C UNIT 'UINPUT' FOR GENERAL USE 
. C. (?) JOHN C. RUSS OCT I960 

o'emVq- ssrfciV l > *>' 

FUNCTION INPUTO 

C ’ FREE FORMAT ENTRY FOR INTEGERS 

IMPLICIT CHARACTER (H), LOGICAL (F) 
DIMENSION HCH(ZO) 

, 1 READ (*,Z) (HCH(J), J«1,20> 

Z FORMAT (Z0A1) 

. . IVAL.O . s ... 

' ' " f1 FPOS-.TRUE. 

FSTRT. . FALSE . 

' C INITIALIZE ZERO IN TOTAL, POSITIVE 
C SIGN, AND NO CHARACTERS SEEN YET 

DO 9 J.1.Z0 
IDG>IDV(HCH(J)) 

IF . ( IDG) 1 10,11,11 

10 WRITE < *,3) 

3 FORMAT ('ERROR-REPEAT ENTRY '*) 

C CHECK FOR INVALID CHARACTERS 

GOTO 1 

C ‘vACCSPT DIGITS 0...9, .-+ f AND SPACE 
C NOTE: . SIGNALS END OF INPUT 

11 IF <IDG-10) 12,13,14 

C 13• . ' MARKS END OF ENTRY - ANY 

C MORE CHARACTERS ARE IGNORED! 

14 IF UDG.EQ. 13.). GOTO . 

C IGNORE SP^Cts" ANYWHERE IN FIELD 


If (FSTRT.) GOTO 10 . * / 

C +- INVALID AFTER START 

-IF’XIDG^ff. 1ZPH GOTU i6 • ; . • 

FPOS-.FALSE. 

16 FSTRTf.TRUE. 

’■ GOTO : -t* 

C +- SIGN CHECKED. STARTS NUMBER 

1Z TEMP-IDC+10.0*IVAL 

C SUM UP DIGITS TIMES POSITIONS 

c ' ^tMPE'IED fL*OAT'* »V T 

IF (TEMP.GT.3Z767.0) GOTO 10 
C TOO LARGE FOR AN INTEGER 

IVAL*IFix(TEMP) 

FSTRT..TRUE. 

9 CONTINUE 

13.,.. -J| r (£PQ£) GOTO 2Q. . 

Tval.-ival 

C CHECK SIGN OF TOTAL 

Z? INPUT*IVAL 

RETURN 

END 

FUNCTION VALINO 

C FREE FORMAT FLOATING POINT NUMBER 

< > C! ... ENTRY. .DECIMAL POJNT IS OPTIONAL. 

C RETURN YIELDS-ZERO. SPACES IGNORED. 

IMPLICIT CHARACTER (H>, LOGICAL (F) 
DIMENSIONMfCH(ZO) 


CONTINUED ON PAGE 7 
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1 READ <*,2> (HCH(J), J-1,20) 

2 FORMAT (20A1) 

FPOB-.TRUE. 

FSTRT-.FALSE. 

FDCPT-.FALSE. 

DIVW10.0 
VLI-0.0 
VLD-0.0 

C INITIALIZE FLAGS FOR ♦ /-, START OF 

C CHARACTERS IN FIELD, AND FINDING 

C DEC.FT. VL1-INTEGER PART, VLD-DEC. 

DO 9 J-1,20 
IDG-IDV(HCH(J)) 

IF (IDG) 10,11,11 
40 WRITE (4,3) 

3 FORMAT ('ERROR-REPEAT ENTRY ’9) 

GOTO 1 

C FUNCTION IDV RETURNS -1 IFCHARAC. 

C IS NOT 0...0 OR + .- OR SPACE 
C FUNCTION THEN ASKS FOR RE-ENTRY 

11 IF (IDG-10) 12,14,14 

14 IF (IDG.EG.131 qOTQ 9 

C IGNORE SPACES ANYWHERE IN FIELD 

IF (FSTRT) GOTO 10 

C \ ♦, — ONLY LEGAL AT START OF ENTRY 
IF (IDG.EQ,12) GOTO 19 , 

FPOS-.FALSE. 

C CASE OF NEGATIVE NUMSER 

16 FSTRT-.TRUE. 

C IN ANY CASE, NUMBER HAS QECUM : 

GOTO 9 

13 FDCPT-.TRUE. 

GOTO 9 

C DEP. PT. HAS BEEN ENCOUNTERED 

12 FSTRT-.TRUE. 

IF (.NOT.FDCPT) GOTO 15 
VLD-VLD+IDG/DIVI 
DIVI-DIVI*10.0 
GOTO 9 

C ADO IN DECIMAL FRACTIONS FOR BACH 
C DIGIT PAST DECIMAL POINT 

15 VL1-10*VL1+IDG 

C ADD IN DIGIT (FLOATED) AND SHIFT 

i 

ST. VALENTINES DAY MASSACRE DINNER 

Thit i* a reaindar that tha dlnnar (or olub 
aaabara la aohadulad for Saturday night 
Fabruary 14, 1101. Dataila wars ooatainad la 

laat month's Harvast. 

Marty Rutptain, who la organising tha affair, 
raquaata that all who ara intarastad in 
attaadiag aand thair ohaoka far 929.00 par 
ooupla or 912.50 par aingla innsdiftaly. 
Inforaation aay ba obtaiaad by calling Marty 
at r 145-2524. 


9 . CONTINUE 

VALIN-VLI+VLD 
IF (FP08) GOTO.20 
VALIN—VALIN 

C COMBINE INTEGER & DECIMAL PARTS 
C AND CHECK SIGN OF ENTRY 
20 , RETURN 

END 


FUNCTION IDV(HC) 

C RETURNS DIGIT VALUE 0...9, ' .'-10 
C .•+**11, '-'-12, SPACE-13, ELSE —1 

IMPLICIT CHARACTER (H> 
IDGT-ICHAB(HC) 

IF (IDGT.GE.4S) GOTO 40 
GOTO (31,32,33,34) IDGT-42 
.. IF (IDGT.NE.32) GOTO 29 

IDV-13 
RETURN 

C 32 IS ASCII FOR SPACE 

40 IF (IDGT-LB.57) GOTO 41 

29 IDV—1 

RETURN 

C. NOT A VALID DIGIT 

41 IDV-IDGT-48 
RETURN 

C ASCII 48*0, 49-1, ... ~, 57-8— 

91 IDV-12 

RETURN 

C ASCII 43-'-’ 

32 GOTO 29 

C ASCII 44 INVALID 

33 IDV-11 
RETURN 

C ASCII 45-'+’ 

34 IDVfclO 
RETURN 

(f ASCII 48- 1 . ' 

END 


QUICKIE HARDWARE REVIEW 

I wantad to throughly raviaw ay nowaat 
parohasa, an IDS 460G Papar Tigar, in thia 
months iaaua, hot lima haa baooaa aa short 
that I can anly aay thaaa low linaa. 

HoWavar, k tha proof of how auoh I 4190 tha 
printar, daapita ita aoftwara problaaa, ia 
tha nioa quality af tha typa you ara looking 
gt. This antira pawalattar waa printar ualng 
tha 400 aat at 12 ohnraetara par inah.' 

Da 90 Alport 
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IAC INOE? 

The 1AC has sent sojip more APNOTES. Here if 
the up ' to date indei of whpt if ngw in our 
library. 

A. Hardware Modifications 

2. User Firmware (2716) 

4. Adding Color to Hires 

6. Five Additional Characters 
fros} the Keyboard 

B. Basics 

2. Applesoft Hires Routines 

3. Applesoft Array Eraser 

4 Applesoft Hires Screen Function 

5. Generating Tones in Applesoft 

6. literal Input Routine 

8. Print Using Simulator 

9. Converting Integer Bae}c Program? 

To Applesoft 

JO. Applesoft Random Numbers 
11. 4ppl.esoM Out of Memory 
If. VTAB and HOME Convertor for 
Sup-R-Termin*l 

C. Machine Language 

8. Adding Feature? to LISA 

9. Putting Programme M/L onto disk 

D. Interfacing Information 

2. Cassette Intfrfaop"' 

4. pEL Charfg^er filler 

5. Correction to Suf-R-Tfrmin«l 
Preliminary Manual 

E. Printer Interfacing 

3. Serial Handshake Modification 
With Tabs 

F. Datasheets 

5. Apple Post 

G. Pascal 

1. Lower. Case Patch 

2. Linefeed 

3. Take 280 

4. Getrem 

5. Transfer and Sum 512 

7. Foreign and Gftttest ” 

9. Comm Card Baud Rate Changer* 

10. Ipterfaoing Foreign Hardware 

11. Long Integer Fip 

12. Hires 

13. Kno«?n Pascal Bugs 

16. Pasoal Units 

17. Pascal Peeks and Pokes 

H. Teit and Graphics Information 

1. Teat screen Mapping and Use 

I. Lists 1. DOS Demo Programs 

2. 3.2.1 Append Fis 


J. DOS 
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ASK 

MR. APPLE 


.Mr. App 1e: 

I have seen in many articles and progress 
were they have a statement like: 

10 IF PEEK(2040) THEN GOTO 7 or 

}00 IF PR THEN PRINT "PR§1" 

What I don't seem to understand is how you 
can have an Ip statement without comparing it 
to something else. (eg. IF A * 7 THEN GOTO 
250). What is even more confusing is that 
these programs run! Hope you can shed a 
little light on this matter. 

Answer; 

.Th#rq really is no magic to these statements 
and they are really a shorthand way, and 
faster way of saying the following: 

10 IF PEEK(2048) > 0 THEN GO TO 7 

100 IF PR > 0 THEN PRINT "PR#1** 

In essenoe what these commands qllow the 
programmer to do is a fast compare of a value 
against 1 or 0. I use the word fast because 
the processor only has to look at one bit in 
its status register to make the decision 
whether to match on the value or reject it. 
lq the later case, where a value is actually 
compare^ against, it might require many bytes 
to make the compare, depending on whether or 
not the value is an integer or a real number. 
Another example of this technique oan be seen 
below: 

10 IF NOT PR THEN 250 

What this example means is if PR is not > 0, 
or in other words, if PR ■ 0 then the IF 
Statement is satisfied and a jump will be 
qtade to line 250. I hope that these example 
clear up your questions. 

Mr. Apple 


CHANGING VOLUME NUMBERS 

Tim Hartley 
Hartley Software 
3268 Coach Lane I2A 
Kentwood, Mi. 49508 
(616 ) 942-8987 

Often we want to change the volume number qf 
a diskette so we might be |ble to 
differentiate it from one that currently has 
the same number. 

Obviously one solution is to re-initialise 
all of our disks and use new volume {lumbers. 
Then we could transfer all programs from the 
old disk to the new. Alas, this is very 
tedious and time consuming. The solution, as 
well as the problem, lies in the fact that 
the volume number is written in the Reader 
for each pnd every sector on the diskette 
when it is first initialised. Then, anytimp 
DOS accesses a sector, the volume numbep 
found in that sector's header is stored in 
one of DOS's little memory locations. 1 did 
deyxse a way of using a 'pseudo' volume 
number that work? quite well. 

First of all, here ar# two POKES whieh should 
be eithtr , part of the HELLQ program or POKEd 
in manually. Once they have been entered, the 
CATALOG oospmaqd will display the "pseudo" 
number instead of the r«al vplume number 
encountered for the sector. 

POKE 44476,193 
POKE 44477,179 

Here is a short program which will allow you 
to modify the 'pseudo' number on all of your 
disks: 

3LIST 

0 TEXT : HOME 

10 POKE 44476,183: POKE 44477,179 
20 CALL 45047: REM READS IN VTOC 
30 INPUT "ENTER NEW VQLUME NUMBER ";VL 
40 POKE 46017,VL: 

50 CALL 45051: 

60 PRINT CHR$ (4)"CATALOG" 

70 END 

These are for a 48K machine and CALLS must be 
modified for a smaller one. I haven't had a 
chanoe to try it on DOS 3.3 yet but I'm 
pretty, sure it will work OK. If you fail to 
do the two POKEs, the old volume will appear. 
If you do the two POKEs, the 'new' number 
oomes up. 

Ed. note. I tried it on DOS 3.3 and it works 


fine. DMA 
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STATIC ELECTRICITY 

TIPS FROM GUY Dave Alpert 


Want to use commas (,) or oolons (:) in 
strings with Applesoft INPUT statements? 

Simply preceed the input with a single quote 

mark character: 

3LIST 

lY INPUT At - * 

‘* 20 PRINT At 

3 RUN 

’THIS, FRIEND, IS: A TEST 

• ; ‘ ?EX J TRA\IGNb.REb . . . , ' 

. i/.- THIS' 

3 RUN 

’"THIS, FRIEND, IS: A TEST 
THIS, FRIEND, IS: A TEST 

Note that the leading quote mark is ignored. 
* A trailing quote nark ' is also ignored, if 

* "provided. ’ 

Now you want to save that string to a disk 
"* file and read it 'back later? If so, then you 
must proceed the string* with, a quote mark 
when writing the string to disk. This 
provides the quote mark needed by the INPUT 
~ "s tatmeht when the string is later read baok 
from * disk'. A CHRS(34) generates a quote mark 
* in^Apptesof *i •* ’ •' 


PRINT D«"WRITE ANY-OLD-FILE" 

PRINT CHRM 34) ;A* • 

PRINT D$ 


*■ Remember, the quote .mark generated by the 
„ CHR$(34>) function will take a byte of 
diskette storage in the record! 

Guy A. Lyle 
BACKWARDS APPLE 

Dr. Wm.. -R. Dial 
438 Roslyn Ave. 

Akron, Oh. 44320 

Dr. Dial writes the 6502 Bibliography for 
MICRO magazine. This monthly feature lists 
artioles . that ^ appear in the different 
periodicals that cover the 6502 

mioroprooessor (which, of course, inolude the 
APPLE). The Harvest is'now being inoluded in 
that listing. 

Dr. Dial was kind enouugh to send us this 
little program. I won't tell you what it 
does. Try it and see. 


I can't help but be redundant when I warn 
people of the dangers of static eleetrieity 
around the APPLE. The APPLE is\very'sensitive 
to jolts of power generated onyour person 

from just walking around the room or rubbing 
against your sweater, etc. It is very 

possible to put your APPLE out of commission 
with just one slight jolt of static. Touching 
the door of your disk drive when not prdperly 
discharged can blow away some of the chips on 
the disk controller card as well as reach 

into the motherboard itself. 

The most important step to take to avoid 

disaster is to remember that the problems 
esists. It is to late to. do anything after 

you hear and feel that sap go through your 

equipment. Grounding yourself before touohing 
anything will usuallly prevent the problem. 
It is important to remember that, often, 
grounding yourself to something oonneoted to 
the same electrical line as your equipment 

may result in the oharge going through the 
line to the power supply and, henoe, the 
cards and ohips bn 'the board. Keep-at*far 
away from the APPLE qs you can when 

discha rgin g yourself. ‘ 

Other preventative measures that oan betaken 
are: spraying carpets with anti-static 

oompounds, using anti-static floor mats and 
keeping the 'oomputer room' well humidified. 
Be Careful hot to over humidify' the‘room as 
the APPLE is also sensitive to too much 

moisture in the air (to say nothing of what 
that does to wallpaper, furniture, etc.). 

* . . % - ’ 

Probably the best solution'!* to?temporalily 
relooate during the dry winter months- in 
Florida ot California. Fok'those who can not 
do this, reread paragraphs 3 and 4 above. 

.5 HOME :<B « - 1:C ■ 1: PRINT "I 

NPUT STRING YOU WANT TO PRIN 
T": VTAB 6: INPUT A$:A « LEN 
(Al): HOME : VTAB 10: FOR I - 
A TO C STEP B: HTAB I: PRINT 
MIDS (A$,I);: GOSUB 40: NEXT 
I 

25 REM TRY A POKE 33,36 HERE AND 
SEE WHAT HAPPENS (THE EDITO 
R) 

30 Bt - "SOMETHING MUST BE WRONG 
WITH APPLE* !": PRINT : PRINT 
: PRINT :E » LEN (B$): FOR 
I . E TO C STEP B: HTAB I: PRINT 
MID9 (B$,I);: GOSUB 40: NEXT 
I: PRINT : PRINT : PRINT : END 

40 FOR D = 1 TO 100: NEXT D: RETURN 







HARVEST VOL. 2-NO. 4 


PACE OB 


CALL FOR PAPERS 

The NCC or National Computer Conference will 
be held in Chioago nest May 4-7. Along with 
the NCC will be the Personal Computing 
Festival (as well as the International APPLE 
Core aeetings-see related artiole). The 
Festival will include three full days of 
programs and special activities on all 
aspects of personal computing, with emphasis 
on the applications people have for their own 
computers. 

You can participate in one of four ways: 

1. Pesent a paper. 

2. Give a talk. 

3. Organise a panel. 

4. Deliver a tutorial. 

Potential participants should send a letter 
of intent as soon as possible, but no later 
that December 1st. The letter should include 
an abstract and a brief biography. 

Since you will receive this notioe with only 
a week to go before the deadline date, I 
suggest a call be made to James Gardes, 
Argonne National Laboratory, 9700 Cass Ave., 
Argonne, 11. 60439. 972-2000. 

More information on this can be obtained by 
calling me at 295-6078. 

Dave Alpert 

NSAUG TO HOST IAC MEETING 

Along with the NCC and The personal Computing 
Festival, the International APPLE Core will 
hold its annual meeting and seminars in 

Chioago the weekend of May 2 and 3 1991. 

Our club has volunteered to be the 'host' 

club. Ve will coordinate finding faoilities 

and lining up speakers for the seminars. A 
committee is being formed now to fulfill 
these needs. I am heading up the effort and 
could use help from those who are 
knowledgable in the areas of convention 
planning and seminar planning. Ve also would 
like to have several hard working volunteers 
who would like to learn how to do these 

things. 

Please contact me immediately as time is 
short and any delay in making arrangements 
for this will be costly. 


BIG CONTEST 
ENTERS STRETCH 

How are those programs ooming? The response 
of the stores throughout the area has been 
very favorable. It's now up to us to show the 
quality and quantity of our work. Besides the 
first prise of $100 and the second prise of 
$50, area stores have made the following 
cont ribution: 

Compushop-Ro11ing Meadows- coupons for 
yearly magasine subscription 

Compushop-Morton Groove-3 ,coupons for 
yearly magasine subscription- 
one copy MP Software graphics 
package-one Powersoft Super 
Checkbook 

Computerland-Arlington Heights-one $50 
gift certificate-ten $10 
gift certificates 

Computerland-Downers Groove-five $10 
gift certificates 

Computerland-Niles-one 12” Leedes Video 
Monitor 

Data Domain-Schaumberg-$50 gift 
certificate 

Northbrook Computer-$25 gift certificate 

Video Etc.-Deerfield-$40 gift certificate 

The olub wishes to thank the participating 
dealers for their assistance and generosity. 

Final deadline for the contest has been 
extended to include the January meeting to 
allow you to deliver your entries at that 
time. Remember, last day is January 3, 1691. 


WANT ADS 

Programmer wanted. 

I am looking for a serious programmer willing 
to write APPLE II software for oash. Call 
Skip Neiburger 223-5077 

Pete Zaloga is looking to buy a diso drive 
and 16K of memory. He can be reached at work 
at 545-8481 and at home at 283-6444. 


Dave Alpert 
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59150 LAST » PEEK (37): REM CURS 
ER V POS 
59160 V s 0 

59170 V * V ♦ 1: IF FN SCI) * 16 
0 GOTO 59170: REM LOOK FOR F 
IRST LINE IN CATALOG 
59180 IF FN S(2) < > 160 THEN 

V » V ♦ 2: REM ADD 2 IF ONLY 
TITLE 

59190 FOR I ■ V + 1 TO LAST: VTAB 
I: HTAB 3: PRINT "- "i CHRI 
(64 ♦ I - V);" : NEXT I: REM 

PRINT LETTERS 

59200 PRINT “CHOOSE LETTER <Z«EX 
IT): ";: GET Nt 

59210 IF ASC (Nt) < 65 THEN END 

59220 N = ASC CN$ > - 64: IF N > 

LAST - V THEN END 
59230 V s V + N - 1:At * "" 

59240 Nt » "RUN ": IF FN S(l) ■ 

194 THEN Nt » “BLOAD": GOTO 
59270 

59250 REM CHANGE “BLOAD" TO “BRU 
N" IF DESIRED 

59260 IF FN S(l) a 212 THEN N$ > 

"EXEC “ 

59270 FOR H » 7 TO 39:A$ a At ♦ 

CHRI ( FN S(H)): NEXT 

SS3TO -PRINT - . --- — 

59280 PRINT D$;Nt;At 
59290 IF LEFTI (Nl,2> » “BL" THEN 
HOME : PRINT TAB< 3)“>> BI 
NARY FILE LOADED <<": GOTO 5 
9140 

59300 IF LEFTI <Nt,l> * "E" THEN 
DEL 59000,59300: REM REMOV 
E THIS PROGRAM FROM TEXT FIL 
E 


NOT ANOTHER HELLO PROGRAM! 

This hello program is for those who have an 
APPLE H PLUS and would like to automatically 
run their programs from a oatalog by typing 
in a single letter. (An INTEGER version of a 
similar program was on NSAUG VOL 5 called 
NSAUG VOL 5, but this is no help to those who 
don't have INTEGER BASIC.) 

To use this program, type it into your 
computer using FP (or APPLESOFT). Delete 
your old HELLO program, and save this program 
using the same name as your old HELLO 

program. You can now modify lines 10 to 30 
to print any title you want. 

BINARY films are loaded, and the program 

returns to the CATALOG for a new selection. 
Line 59240 may be changed if you want to BRUN 
binary files. 

TEXT files are EXECed and the HELLO program 
remove^ itself from the result. The high 
line numbers are used so as not to interfere 

with line numbers on files being EXECed. Use 

the RENUMBER program on your master disk if 
you want to change them. 

One word of warning: If the program you are 
trying to BLOAD resides at t800 rit will brow 
the lines from 59260 on down and an error 
will ooour. The binary program will be loaded 
however. This is because APPLESOFT programs 
begin there and will be wiped out by the 
BLOAD. 

1 LIST 

59000 T8 » "AUTO-HELLO" 

59010 Nt a "A. F. PETRIE" 

59020 D! a "9/27/80" 

59030 TEXT : HOME 

59040 HTAB 3: FOR I a 3 TO 37: PRINT 
"*";: NEXT 

59050 PRINT : PRINT : PRINT TAB( 

20 - INT (.5 * LEN (Tt))); 

Tl 


59060 

PRINT : 

PRINT TAB< 

20 - 

INT 

( . 

5 * LEN 

(Nt))),Nt 



59070 

PRINT : 

PRINT TAB( 

20 - 

INT 

( . 

5 * LEN 

(Dt)));Dt 



59080 

PRINT : 

HTAB 3: FOR 

I a 3 

TO 

37 

1 : PRINT 

"ft"i: NEXT 



59090 

PRINT 




59100 

FOR 1 a 

1 TO 1000: 

NEXT I 



59110 Dt a CHRI (4) 

59120 DEF FN S(H> a SCRN( H,2 * 
V) ♦ 16 » SCRN( H,2 » V + 1 
) 

59130 REM FNS(H)-ASC<) FOR CHAR 
AT H, V 

59140 PRINT D$;"CATALOG" 


RAP RAP YOUR APPLE 

Joe Rakosky has come up with a novel way to 
protect your keyboard from being soaked when 
you spill your favorite oola n it. He covered 
the keyboard with Saran Wrap. Joe tells us he 
has no trouble typing on the keyboard aiid the 
wrap keeps the eleotrioal oontaots dry. 
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HARDWARE REVIEW 
California Computer Systems 
7424 Calendar/Clock Module 

Dav Holle 

Illini Microcomputers, Naperville, Illinois 

When Mountain Hardware raised the prioe of 
their Apple Clock to $280, 1 had given up on 
ever having a clock in my Apple. Why so 
ei.pensive? With low-cost digital watches all 
over the place, there had to be a oheaper 
way. About a month ago, California Computer 
Systems proved it: they introduced their 7424 
Calendar/Clock Module for $125. Evan at less 
than half the prioe of the Mountain Hardware 
clock, it's a full feature unit, and oould 
have been even cheaper if some features were 
left out. 

I've used the Mountain Hardware Apple Clook 
for over a year in the Naperville Apple 
Bulletin Board System, and now I have the CCS 
7424 in my own machine. When I refer to the 
’Apple Clock', that's the Mountain Hardware 
board ! 

The Apple Clook has a rechargeable battery 
that lasts 'up to four days' (usually less). 
The CCS clock won't go on vacation whenever 
you do, though. To keep it running while the 
Apple's off, all that^s required is 2 watch 
cells that keep it running for a year. 


The Apple Clook keeps a 24-bit count of 
seoonds and a 3-digit milliseoonds oount, 
which must be converted to month/day 
hour:min:seo by the firmware each time it is 
read. Instead of doing that, the CCS olook 
hardware actually keeps track of the time, 
day of week and date by itself. If you wish, 
it can be read without using the oard’s 
firmware at all. Reading from BASIC is 
simple: a poke to select which digit, and a 
peek to read it. The 7424 keeps track of the 
year and the day of the week if you set them. 
The Mountain Hardware clock has no way to do 
this directly. 

There are several sets of solderless jumpers 
on the 7424. These oontrol write-proteoting 
the olook setting (so turning the Apple off 
doesn't reset it), interrupt interval, ROM or 
RAM program, and which program in the 2708 
EPROM is in oontrol. Most jumpers, the 
write-protect and program-select in 
partioular, can be moved without taking the 
card out. 

If you wish to use the olook to generate 
interrupts, you may select 1/1024 sec., 1 
sec., 1 minute or 1 hour intervals. If you 
ch&ose, you may take the out the EPROM 
provided and put 256 bytes of RAM ijn the 
sockets provided. You'll then have to move 1 


.PACE 0D 

jumper to use RAM instead of ROM, for those 
who just have to do things their own way! 

Normally, you would select one of the 3 EPROM 
programs already on the 2708. (Brave souls 
are free to burn their own into the blank 4th 
area.) Most people will probably use the 
•clock input' routine. This program produces 
a string similar to the Apple Clock's when 
you select the clook for input. The 7424 can 
give you the year 6 the day of the week, 
which aren't available from the Apple Clock, 
so the 'clock input' routine wastes some 
abilities of the card for compatibility’s 
sake. The milliseconds part of this time 
string will always be 000, since fraotions of 
a second aren't available on the 7424. 

The olook input routine is not totally 

compatible with the Apple Clock. When using 
an Apple Clock in slot 4, the usual practice 
is to set both input and output to the clock 
like this: 

1000 INi4:PRi4:INPUT " ";TI$: 

REM Apple Clock method 

The CCS olook firmware does NOT allow you to 
set output to it, and if you do, it goes 
nuts. So, the 7424 is almost a direct 
replacement for the Apple Clock, but not 

quite,. Take .out the- PR# .to--the clock and_ 

it'll work: 


1000 IN>4:INPUT TI$: 

REM CCS 7424 Method 

I don't know if this makes it incompatible 
with Mountain Hardware-BSR oontrol system or 
not. If the home oontrol system does simple 
reads of the clock, there should be little 
difficulty in converting it. 

The other programs you may select make use of 
the interrupts. The 'time string' routine, 
for Applesoft only, can continuously update a 
string <T1$) in memory with the current time. 
The 'time display* routine will show the time 
on the screen. The rate of the updates will 
depend on the interrupt interval seleoted by 
your jumpers. 

The EPROM routines provided never make use of 
the $C800-$CFFF shared ROM area, so there’s 
no problem when using clock interrupts with 
other cards that use that area. This lets you 
use cards like the Apple Serial Card, the DC 
Hayes Mioromodem DC, the Mountain Hardware 
ROM+ or the Silentype while interrupts are 
enabled. By oontrast, the Mountain Hardware 
Apple Clock deselects other cards' shared 
ROMs. This means that none of the above cards 
can be in use while interrupts are enabled 
with the Apple Clock, but are OK with the 
'7424. 
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FROM PAGE OD 

The manual is usable but weak in some areas: 
it does not tell you how to set the day of 
the week. The olook setting routine given 
doesn't test to make sure eaoh digit is set 
properly f which lead to some difficulty when 
I found that one of the the year digits on my 
clock was stubborn and needed more than one 
poke to set it. The CCS people were very 
helpful though/ and quickly solved the 
problem over the phone. 

All in all, I believe the 7424 Calendar/Clock 
Module is the best bet for most applications. 
Where fractions of a second or a larger 
selection of interrupt intervals are 
required, one might be better off with the 
more expensive Apple Clock. But, in the usual 
case where the the date and time is needed 
for reports or files, the CCS version makes a 
lot of sense. 


STOP (AND START) LIST 

A. F. Petrie 

Ever watch helplessly while important 
information in your print-out or program 
listing scrolled off the screen? The solution 
is simple. 

If you have an INTEGER APPLE H (no plus) 
there are two programs on NSAUG VOL 3 Disk 
whioh you can BRUN at any time without losing 
your current program. To use them, simply 
pull out the disk that you are currently 
using, insert NSAUG VOL 3, and BRUN STOPLIST 
or BRUN SLOW LIST and you can halt print-outs 
or listings by hitting any key. You can 
resume by hitting another key. STOPLIST 
clioks every letter, SLOW LIST is the silent 
partner. 


EDUCATIONAL SOFTWARE SYMPOSIUM 

Monica Kantrowits, President of Queue informs 
us that a Educational Software Symposiurn wi11 
be held at the O'Hare Hilton on February 7 
and 8, 1981. Seminars will be conducted and 
wi 11 incHid* the followiirg~ tojri cs ; —- — ~~- 


So f tware 


for Elementary 


Software in the Mathematic 


So f tware 


in the Science 


Instruction in Foreign 


Eng 1 i sh 


and 


Educational 
Schools 
Educa tional 
Cirriculum 
Educa tiona1 
Currirrulum 
Computer Assisted 
Languages 

Can Computers Teach 
Reading?Simulations 
Computer Education 
Writing Educational Software 
New Technological Developments 


There will also be an extensive exhibit hall 
and an opportunity to view software programs 
first hand. Registration is $85. Write Monica 
at 5 Chapel Hill drive, Fairfield, Ct. 06432 


If you have an APPLE It PLUS, life is even 
easier. All you have to do is hit CTRL-S to 
stop and any other key to continue. If you 
want to stop the program or listing (for 
example to modify it) hit CTRL-C after 
CTRL-S. If there are no ohanges, you can 
resume by typing_CONT i-n APPLESOFT or CON in 
INTEGER. I usually hold down CTRL with the 
third finger of my left hand and keep the 
second finger over S before pushing RETURN, 
so I can stop instantly. This piece of 
information is hidden on pages 26 and 30 of 
the NEW APPLE It REFERENCE MANUAL. There is 
only one way to stop a CATALOG listing that 
is too long for the page: use RESET and the 
list will stay. Sorry for you non-PLUS 
owners, this won't work for you! 
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NSAU6 DISK ORDER FORM 


Please fill out and give 
order f enclose check only. 
<)<)<><><><><> 

Date ordered_ 

Total no. of disks ordered. 

* •3.50*1_ 

Mail svc. * $1.50/ *$_ 

Total enclosed * 

Name(piease PRINT)_ 

_C i t v 


(or mail) top copy to the olub librarian with the proper fee. If mail 
NO CASH. Indicate the volume numbers of the disk you want below. 

<)C)<><)<><>() <> < ><><><><><)<><><> 


* Librarian's use only * 

Date (ready-mailed)_/- i 

( )Cash ( ) Amount $_ 

_Address__-— -- 

State _ _ZiP- 


TEAR HERE 


This copy for your records. 
Disks ordered: 


****** 
Copy 2 


<><)()<)<)<>< 


<><><)<><)<)<><><><>< ><)<> 


Date submitted 


Amount paid, 
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